| Filename | (eval 15)[/usr/share/perl5/JSON.pm:319] |
| Statements | Executed 3 statements in 18µs |
| Eval Invoked At | /usr/share/perl5/JSON.pm line 319 |
| Sibling evals | 1, 2 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 16µs | 53µs | JSON::PP::Boolean::BEGIN@3 |
| 0 | 0 | 0 | 0s | 0s | JSON::PP::Boolean::__ANON__[:13] |
| 0 | 0 | 0 | 0s | 0s | JSON::PP::Boolean::__ANON__[:4] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | |||||
| 2 | package JSON::PP::Boolean; | ||||
| 3 | # spent 53µs (16+37) within JSON::PP::Boolean::BEGIN@3 which was called:
# once (16µs+37µs) by JSON::Boolean::_overrride_overload at line 14 | ||||
| 4 | '""' => sub { ${$_[0]} == 1 ? 'true' : 'false' }, | ||||
| 5 | 'eq' => sub { | ||||
| 6 | my ($obj, $op) = ref ($_[0]) ? ($_[0], $_[1]) : ($_[1], $_[0]); | ||||
| 7 | if ($op eq 'true' or $op eq 'false') { | ||||
| 8 | return "$obj" eq 'true' ? 'true' eq $op : 'false' eq $op; | ||||
| 9 | } | ||||
| 10 | else { | ||||
| 11 | return $obj ? 1 == $op : 0 == $op; | ||||
| 12 | } | ||||
| 13 | }, | ||||
| 14 | 3 | 18µs | 2 | 90µs | ); # spent 53µs making 1 call to JSON::PP::Boolean::BEGIN@3
# spent 37µs making 1 call to overload::import |
| 15 | |||||
| 16 | ; |